home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Oberon⁄F™ 1.2 / Preinstalled version / Mac / Mod / ControlMgr (.txt) < prev    next >
Encoding:
Oberon Document  |  1995-06-15  |  5.7 KB  |  112 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Geneva
  16. Geneva
  17. StdStamps.StdViewDesc
  18. Geneva
  19. Geneva
  20. MODULE MacControlMgr;
  21. (* cp 
  22.     control definition functions eliminated
  23.     IMPORT SYSTEM, MacTypes, MacWindowMgr;
  24.     CONST
  25.         pushButProc* = 0;
  26.         checkBoxProc* = 1;
  27.         radioButProc* = 2;
  28.         useWFont* = 8;
  29.         scrollBarProc* = 16;
  30.         inButton* = 10;
  31.         inCheckBox* = 11;
  32.         inUpButton* = 20;
  33.         inDownButton* = 21;
  34.         inPageUp* = 22;
  35.         inPageDown* = 23;
  36.         inThumb* = 129;
  37.         noConstraint* = 0;
  38.         hAxisOnly* = 1;
  39.         vAxisOnly* = 2;
  40.         HANDLE = 2;
  41.         CODE = 1;
  42.     TYPE
  43.         ControlPtr* = POINTER TO ControlRecord;
  44.         ControlHandle* = POINTER [HANDLE] TO ControlRecord;
  45.         ControlRecord* = RECORD (MacTypes.Data)
  46.             nextControl*: ControlHandle;
  47.             contrlOwner*: MacWindowMgr.WindowPtr;
  48.             contrlRect*: MacTypes.Rect;
  49.             contrlVis*,
  50.             contrlHilite*: MacTypes.PackedChar;
  51.             contrlValue*,
  52.             contrlMin*,
  53.             contrlMax*: INTEGER;
  54.             contrlDefProc*: MacTypes.Handle;
  55.             contrlData*: MacTypes.Handle;
  56.             contrlAction*: MacTypes.ProcPtr;
  57.             contrlRfCon*: LONGINT;
  58.             contrlTitle*: MacTypes.Str255
  59.         END;
  60.     (** Initialization and Allocation **)
  61.     PROCEDURE [CODE] NewControl* (theWindow: MacWindowMgr.WindowPtr;
  62.                                     boundsRect: MacTypes.Rect; title: MacTypes.Str255;
  63.                                     visible: BOOLEAN; value, min, max, procID: INTEGER;
  64.                                     refCon: LONGINT): ControlHandle 0A9H, 054H;
  65.     PROCEDURE [CODE] GetNewControl* (controlID: INTEGER; theWindow: MacWindowMgr.WindowPtr): ControlHandle 0A9H, 0BEH;
  66.     PROCEDURE [CODE] DisposeControl* (theControl: ControlHandle) 0A9H, 055H;
  67.     PROCEDURE [CODE] KillControls* (theWindow: MacWindowMgr.WindowPtr) 0A9H, 056H;
  68.     (** Control Display **)
  69.     PROCEDURE [CODE] SetCTitle* (theControl: ControlHandle; VAR title: MacTypes.Str255) 0A9H, 05FH;
  70.     PROCEDURE [CODE] GetCTitle* (theControl: ControlHandle; VAR title: MacTypes.Str255) 0A9H, 05EH;
  71.     PROCEDURE [CODE] HideControl* (theControl: ControlHandle) 0A9H, 058H;
  72.     PROCEDURE [CODE] ShowControl* (theControl: ControlHandle) 0A9H, 057H;
  73.     PROCEDURE [CODE] DrawControls* (theWindow: MacWindowMgr.WindowPtr) 0A9H, 069H;
  74.     PROCEDURE [CODE] HiliteControl* (theControl: ControlHandle; hiliteState: INTEGER) 0A9H, 05DH;
  75.     PROCEDURE [CODE] Draw1Control* (theControl: ControlHandle) 0A9H, 06DH;
  76.     PROCEDURE [CODE] UpdtControl* (theWindow: MacWindowMgr.WindowPtr; updateRgn: MacTypes.RgnHandle) 0A9H, 053H;
  77.     (** Mouse Location **)
  78.     PROCEDURE [CODE] FindControl* (thePoint: MacTypes.Point; theWindow: MacWindowMgr.WindowPtr;
  79.                                     VAR whichControl: ControlHandle): INTEGER 0A9H, 06CH;
  80.     PROCEDURE [CODE] TrackControl* (theControl: ControlHandle; startPt: MacTypes.Point;
  81.                                     actionProc: MacTypes.ProcPtr): INTEGER 0A9H, 068H;
  82.     PROCEDURE [CODE] TestControl* (theControl: ControlHandle; thePt: MacTypes.Point): INTEGER 0A9H, 066H;
  83.     (** Control Movement and Sizing **)
  84.     PROCEDURE [CODE] MoveControl* (theControl: ControlHandle; h, v: INTEGER) 0A9H, 059H;
  85.     PROCEDURE [CODE] DragControl* (theControl: ControlHandle; startPt: MacTypes.Point;
  86.                                 limitRect, slopRect: MacTypes.Rect; axis: INTEGER) 0A9H, 067H;
  87.     PROCEDURE [CODE] SizeControl* (theControl: ControlHandle; w, h: INTEGER) 0A9H, 05CH;
  88.     (** Control Setting and Range **)
  89.     PROCEDURE [CODE] SetCtlValue* (theControl: ControlHandle; theValue: INTEGER) 0A9H, 063H;
  90.     PROCEDURE [CODE] GetCtlValue* (theControl: ControlHandle): INTEGER 0A9H, 060H;
  91.     PROCEDURE [CODE] SetCtlMin* (theControl: ControlHandle; minValue: INTEGER) 0A9H, 064H;
  92.     PROCEDURE [CODE] GetCtlMin* (theControl: ControlHandle): INTEGER 0A9H, 061H;
  93.     PROCEDURE [CODE] SetCtlMax* (theControl: ControlHandle; maxValue: INTEGER) 0A9H, 065H;
  94.     PROCEDURE [CODE] GetCtlMax* (theControl: ControlHandle): INTEGER 0A9H, 062H;
  95.     (** Miscellaneous Routines **)
  96.     PROCEDURE [CODE] SetCRefCon* (theControl: ControlHandle; data: LONGINT) 0A9H, 05BH;
  97.     PROCEDURE [CODE] GetCRefCon* (theControl: ControlHandle): LONGINT 0A9H, 05AH;
  98.     PROCEDURE [CODE] SetCtlAction* (theControl: ControlHandle; actionProc: MacTypes.ProcPtr) 0A9H, 06BH;
  99.     PROCEDURE [CODE] GetCtlAction* (theControl: ControlHandle): MacTypes.ProcPtr 0A9H, 06AH;
  100. END MacControlMgr.
  101. TextControllers.StdCtrlDesc
  102. TextControllers.ControllerDesc
  103. Containers.ControllerDesc
  104. Controllers.ControllerDesc
  105. TextRulers.StdRulerDesc
  106. TextRulers.RulerDesc
  107. TextRulers.StdStyleDesc
  108. TextRulers.StyleDesc
  109. TextRulers.AttributesDesc
  110. Geneva
  111. Documents.ControllerDesc
  112.